
	REPEAT WHILE (PROGRAM-NAME(pgmlevel) <> ?) AND INDEX(PROGRAM-NAME(pgmlevel), "gpwinrun") = 0 :
		pgmstack = pgmstack + string(pgmlevel, "99") + ":" + program-name(pgmlevel) + "~r~n".
		pgmlevel = pgmlevel + 1.
	END.
	
	MESSAGE pgmstack VIEW-AS ALERT-BOX INFORMATION.
